home *** CD-ROM | disk | FTP | other *** search
- ;
- ; QPEG video driver
- ; for VGA graphics cards based on Ahead chipsets.
- ; Should work with both Ahead A and B versions.
- ;
-
- .286
- Code Segment Para 'Code'
- Assume cs:Code
- Org 100h
-
- Procs dw Bank,Init,Exit,0
-
- AorB db 1 ; 0=A, 1=B
-
- Bank: push ax
- mov dx,03ceh
- mov ax,200fh
- out dx,ax
- pop ax
- push ax
- test cs:AorB,0fh
- jz AheadA
-
- AheadB: mov ah,al
- shl ah,4
- or ah,al
- mov al,0dh
- out dx,ax
- pop ax
- retf
-
- AheadA: push bx
- mov bl,al
- shl ax,7
- mov al,0dh
- out dx,ax
- mov dl,0cch
- in al,dx
- mov dl,0c2h
- and al,11011111b
- and bl,01h
- shl bl,5
- or al,bl
- out dx,al
- pop bx
- pop ax
- retf
-
- Init: mov dx,03ceh
- mov ax,200fh
- out dx,ax
- inc dx
- in al,dx
- and al,0fh
- mov cs:AorB,al
- retf
-
- Exit: retf
-
- Code Ends
- End Procs
-
- ; End of source.
-